В матрице х упорядочить элементы строк по их убыванию — QBasic(Бейсик)

disel
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
cls
input "Matrix:"; x,y 'ввод размера матрицы (х*у)
dim A(x,y)
  
for i=1 to x
for j=1 to y
input ; A(i,j)' ввод элементов матрицы
next j
print :
next i
  
cls: color 2
for i=1 to x
for j=1 to y
print using "### "; A(i,j); 'вывод матрицы
for k=1 to j
if A(i,k)<A(i,j) then swap A(i,k),A(i,j)'упорядочивание элементов строк в порядке убывания
next k
next j
print :
next i
  
color 4
for i=1 to x
for j=1 to y
print using "### "; A(i,j);' вывод результата
next j
print :
next i
end

Тестирование выполнено в программе QB64 ( Скачать )

Похожие записи/страницы:

Leave a Comment